(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     83752,       2114]
NotebookOptionsPosition[     78017,       1920]
NotebookOutlinePosition[     78407,       1937]
CellTagsIndexPosition[     78364,       1934]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, 
   3.5400697213648205`*^9, {3.540419092786145*^9, 3.5404191035032763`*^9}}],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   FractionBox["5", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]T", "=", 
   FractionBox["1", 
    RowBox[{"26.2", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "9"}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663726421875*^9, 3.4566637388125*^9}, {
   3.45666380203125*^9, 3.456663813921875*^9}, 3.4566922269375*^9, 
   3.5366835360235*^9, 3.538523997111776*^9}],

Cell[CellGroupData[{

Cell[BoxData["\[Gamma]T"], "Input",
 CellChangeTimes->{{3.5370977448424997`*^9, 3.5370977478424997`*^9}}],

Cell[BoxData["3.816793893129771`*^7"], "Output",
 CellChangeTimes->{3.5370977484831247`*^9, 3.5370993198737497`*^9, 
  3.5372003887956247`*^9, 3.5372066606393747`*^9, 3.5377158492338753`*^9, 
  3.5377163977651253`*^9, 3.5377165059370003`*^9, 3.5377187334995003`*^9, 
  3.5377230515776253`*^9, 3.5377266707807503`*^9, 3.5377273007963753`*^9, 
  3.5377283786245003`*^9, 3.5377863226088753`*^9, 3.5377951561870003`*^9, 
  3.5378934362225275`*^9, 3.5378975449111457`*^9, 3.53789860202801*^9, 
  3.5378999196843243`*^9, 3.537899953754784*^9, 3.5378999864336414`*^9, 
  3.5379000231093063`*^9, 3.5379003060314026`*^9, 3.53790170389257*^9, 
  3.537901808709154*^9, 3.538523419654747*^9, 3.5385239998799343`*^9, 
  3.538582157352739*^9, 3.538605689013673*^9, 3.538606194785601*^9, 
  3.5386202300004067`*^9, 3.539140746247128*^9, 3.54007051916442*^9, 
  3.5400794365995765`*^9, 3.540088458157486*^9, 3.540421035566491*^9, 
  3.5405055556097393`*^9, 3.540669226692*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinGnd", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jGnd", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxGnd", "=", 
   RowBox[{"jGnd", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"1011910813", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"From", " ", "Steck", " ", "review"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
  3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
  3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
  3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}, {
  3.539986000397787*^9, 3.539986002566191*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
  3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   FractionBox["3", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Int", "=", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"384230406373000", ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606282516619*^9, {
   3.539986512531087*^9, 3.539986513092688*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"25002000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"25790000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   FractionBox["3", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, 
   3.5385845502476044`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinFin", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jFin", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxFin", "=", 
   RowBox[{"jFin", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Fin", "=", 
    FractionBox["1", 
     RowBox[{"241.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]GndToFin", "[", 
   RowBox[{"f_", ",", "fDPrime_"}], "]"}], ":=", 
  RowBox[{"2", " ", 
   RowBox[{"Switch", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "fDPrime"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1"}], "}"}], ",", "385240679712000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2"}], "}"}], ",", "385240683216500", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3"}], "}"}], ",", "385240689192100", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}], ",", "385240698496000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", "385242197577500", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}], ",", "385242201083900", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", "385242207058800", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4"}], "}"}], ",", "385242216362900"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5386057393735533`*^9, 3.5386058876180325`*^9}}],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mRb", "=", 
   RowBox[{"84.911789732", " ", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "323"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, 3.540317318104452*^9, {3.5406683893730965`*^9, 
   3.540668394139369*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]", "=", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    FractionBox[
     RowBox[{"2", " ", "kB", " ", "temp"}], "mRb"], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}}],

Cell[BoxData["25150.741682876534`"], "Output",
 CellChangeTimes->{
  3.456606507140625*^9, {3.45666479275*^9, 3.4566647974375*^9}, 
   3.456665571578125*^9, 3.456862310515625*^9, 3.456862366828125*^9, 
   3.4569296331868753`*^9, 3.4569297765150003`*^9, 3.4572661977337503`*^9, 
   3.45918669084375*^9, 3.459275046734375*^9, 3.460224378384375*^9, 
   3.473088868703125*^9, 3.47309740371875*^9, 3.53633629755475*^9, 
   3.53634366186725*^9, 3.53641081774225*^9, 3.536608927414125*^9, 
   3.536609199507875*^9, 3.536609241226625*^9, 3.53666531361725*^9, 
   3.536665430320375*^9, 3.536666493632875*^9, 3.536673439601625*^9, 
   3.536679828976625*^9, 3.536683769164125*^9, 3.5369248005768747`*^9, 
   3.5370104724049997`*^9, 3.5370105363581247`*^9, 3.5370161739362497`*^9, 
   3.5370325607956247`*^9, 3.5370397431706247`*^9, 3.5372003901237497`*^9, 
   3.5372066617331247`*^9, 3.5377158502651253`*^9, 3.5377163988276253`*^9, 
   3.5377165069526253`*^9, 3.5377187614213753`*^9, 3.5377230526245003`*^9, 
   3.5377266718432503`*^9, 3.5377273018432503`*^9, 3.5377283796870003`*^9, 
   3.5377863238120003`*^9, 3.5377951572651253`*^9, 3.5378934844890127`*^9, 
   3.5378943842323937`*^9, 3.537897574831998*^9, 3.537898602683211*^9, 
   3.537899921135127*^9, 3.537899954456785*^9, 3.5378999875256433`*^9, 
   3.5379000242325077`*^9, 3.5379003070454044`*^9, 3.5379017052185726`*^9, 
   3.537901809364355*^9, 3.5385234209528217`*^9, 3.538583203911598*^9, 
   3.538605955712927*^9, 3.538606212892637*^9, 3.5386202304684076`*^9, 
   3.5391407467619286`*^9, 3.5400705201940203`*^9, 3.540079437629434*^9, 
   3.5400884592027125`*^9, 3.5404210366584845`*^9, 3.540505556764125*^9, 
   3.5406692278152*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Offset Frequency", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f0", "=", 
   RowBox[{"20.", " ", 
    SuperscriptBox["10", "6"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.536606229336*^9, 3.536606229476625*^9}, 
   3.536609033945375*^9, {3.53667308924225*^9, 3.536673089507875*^9}, {
   3.536679694632875*^9, 3.5366796956485*^9}, {3.536683666961*^9, 
   3.5366836672735*^9}, 3.5370104677487497`*^9, 3.5370325434049997`*^9, {
   3.539116492685813*^9, 3.5391164930290136`*^9}, 3.539127919839781*^9, 
   3.54006974098962*^9}],

Cell[CellGroupData[{

Cell["Rep Rate Range", "Subsubtitle",
 CellChangeTimes->{{3.45666493915625*^9, 3.456664941796875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fRepMin", "=", "250000000.00"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepMax", "=", 
   RowBox[{"250000000.00", "+", "90"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQzdCQuk7g4EtHBoZ9ELohdBeEL7EPwn9xEMI3PwTh
s56D8OMhdIPTEVkwn/coiG52WHucM/IVkPY7DaYP+LR0gfmL28H0gSbN1WD+
O30IXZe8DkzvSYXQzKEbwOrEI0H0odKbf1WjQPRDKH171how3TwHRL/4/XHz
ymgQ3bAFTFer7V8Npvsh9O+th8+B+fOOgOnfdbP+gGnp2RB66gYIfRpMOz3c
+OsfkC44+hVMf/sZ9h9Ef9n1AUwf4f8hzRzzyvEWo5QMiNapefXYP/aV4xX+
licgWkpilXVI3CtHNqZOexB9avXVdaoJrxz3taduANErbum4aQLpTcZLwPSc
H5WuF4D0wu4mNxANAMce1ZU=
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fRepAvg", "=", 
   FractionBox[
    RowBox[{"fRepMin", "+", "fRepMax"}], "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.456665192578125*^9, 3.456665212796875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.540317323815516*^9, 3.540317328496716*^9}, {
  3.540419143002223*^9, 3.5404191470893974`*^9}, {3.5405055344876103`*^9, 
  3.5405055415075207`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1536907", ",", "1536908", ",", "1536909", ",", "1536910", ",", "1536911", 
   ",", "1536912", ",", "1536913", ",", "1536914", ",", "1536915", ",", 
   "1536916", ",", "1536917", ",", "1536918", ",", "1536919", ",", "1536920", 
   ",", "1536921", ",", "1536922", ",", "1536923", ",", "1536924", ",", 
   "1536925", ",", "1536926", ",", "1536927", ",", "1536928", ",", "1536929", 
   ",", "1536930", ",", "1536931", ",", "1536932", ",", "1536933", ",", 
   "1536934", ",", "1536935", ",", "1536936", ",", "1536937", ",", 
   "1536938"}], "}"}]], "Output",
 CellChangeTimes->{{3.456665438765625*^9, 3.4566654623125*^9}, 
   3.456665580453125*^9, 3.456665621328125*^9, 3.456862310546875*^9, 
   3.456862366859375*^9, 3.4569296485931253`*^9, 3.4569297765462503`*^9, 
   3.4572661977806253`*^9, 3.459186690890625*^9, 3.45927504678125*^9, 
   3.460224378415625*^9, 3.473088868765625*^9, 3.473097403765625*^9, 
   3.536336297586*^9, 3.5363436618985*^9, 3.5364108178985*^9, 
   3.536608927476625*^9, 3.536609199570375*^9, 3.53660924130475*^9, 
   3.536665313711*^9, 3.536665430351625*^9, 3.536666494570375*^9, 
   3.53667343967975*^9, 3.5366798290235*^9, 3.536683769195375*^9, 
   3.5369248006862497`*^9, 3.5370104724674997`*^9, 3.5370105363893747`*^9, 
   3.5370161740299997`*^9, 3.5370325608737497`*^9, 3.5370397432018747`*^9, 
   3.5372003901549997`*^9, 3.5372066858112497`*^9, 3.5377158503120003`*^9, 
   3.5377163988745003`*^9, 3.5377165069838753`*^9, {3.5377187773901253`*^9, 
   3.5377187996401253`*^9}, 3.5377230526713753`*^9, 3.5377266718745003`*^9, 
   3.5377273018901253`*^9, 3.5377283797182503`*^9, 3.5377863238432503`*^9, 
   3.5377951597182503`*^9, 3.5377952082182503`*^9, 3.5378885178745003`*^9, 
   3.5378886511713753`*^9, 3.5378934975618353`*^9, 3.5378943959636145`*^9, 
   3.5378975760644*^9, 3.5378986039312134`*^9, 3.5378999222739286`*^9, 
   3.537899955689187*^9, 3.5378999886644454`*^9, 3.5379000352617273`*^9, 
   3.5379003070610046`*^9, 3.5379017052653723`*^9, 3.5379018093799553`*^9, 
   3.53852346796751*^9, 3.5385832325952387`*^9, 3.5385833396283607`*^9, 
   3.538605963470371*^9, 3.5386062129246387`*^9, 3.5386202304684076`*^9, 
   3.539140746793129*^9, 3.5400705202096205`*^9, 3.5400794376450377`*^9, 
   3.5400884592339134`*^9, 3.5404210366740847`*^9, 3.5405055568421235`*^9, 
   3.5406692278464003`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.540317329979096*^9, 3.540317333848888*^9}, {3.540419150271777*^9, 
  3.540419153875354*^9}, {3.5405055431298995`*^9, 3.5405055508206005`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1544998", ",", "1544999", ",", "1545000", ",", "1545001", ",", "1545002", 
   ",", "1545003", ",", "1545004", ",", "1545005", ",", "1545006", ",", 
   "1545007", ",", "1545008", ",", "1545009", ",", "1545010", ",", "1545011", 
   ",", "1545012", ",", "1545013", ",", "1545014", ",", "1545015", ",", 
   "1545016", ",", "1545017", ",", "1545018", ",", "1545019"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.45666558171875*^9, 3.456665590046875*^9}, 
   3.456665627203125*^9, 3.456862310578125*^9, 3.456862366875*^9, 
   3.4569296494368753`*^9, 3.4569297765618753`*^9, 3.4572661977962503`*^9, 
   3.459186690921875*^9, 3.4592750468125*^9, 3.46022437843125*^9, 
   3.47308886878125*^9, 3.47309740378125*^9, 3.53633629761725*^9, 
   3.536343661914125*^9, 3.536410817961*^9, 3.536608927507875*^9, 
   3.536609199570375*^9, 3.536609241320375*^9, 3.536665313726625*^9, 
   3.536665430414125*^9, 3.53666649461725*^9, 3.536673439695375*^9, 
   3.536679829039125*^9, 3.536683769211*^9, 3.5369248007018747`*^9, 
   3.5370104725299997`*^9, 3.5370105364049997`*^9, 3.5370161740456247`*^9, 
   3.5370325608893747`*^9, 3.5370397432174997`*^9, 3.5372003901706247`*^9, 
   3.5372066858268747`*^9, 3.5377158503276253`*^9, 3.5377163988901253`*^9, 
   3.5377165070151253`*^9, {3.5377187784057503`*^9, 3.5377188007963753`*^9}, 
   3.5377230526870003`*^9, 3.5377266718901253`*^9, 3.5377273019057503`*^9, 
   3.5377283797338753`*^9, 3.5377863238588753`*^9, 3.5377951597338753`*^9, 
   3.5377952082338753`*^9, 3.5378885188745003`*^9, 3.5378886524213753`*^9, 
   3.5378934975774355`*^9, 3.5378943959792147`*^9, 3.53789757608*^9, 
   3.5378986039312134`*^9, 3.537899922289529*^9, 3.5378999557047873`*^9, 
   3.5378999886644454`*^9, 3.5379000352773275`*^9, 3.537900307076605*^9, 
   3.5379017052965727`*^9, 3.5379018093955555`*^9, 3.538523474095861*^9, 
   3.53858323261524*^9, 3.538583339640362*^9, 3.5386059634833717`*^9, 
   3.5386062129356394`*^9, 3.5386202304684076`*^9, 3.5391407468087287`*^9, 
   3.5400705202096205`*^9, 3.5400794376450377`*^9, 3.5400884592339134`*^9, 
   3.5404210366740847`*^9, 3.5405055568733234`*^9, 3.540669227862*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
  3.4566795630625*^9, 3.45667956609375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"transProb", "[", 
     RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
            "/", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Pi]", " ", 
                  RowBox[{"\[Nu]GndToFin", "[", 
                   RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
                 RowBox[{"\[Omega]1", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", 
                 RowBox[{"\[Omega]2", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], 
               "4"]}], ")"}]}], "+", "\[IndentingNewLine]", 
           RowBox[{
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
            "/", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Pi]", " ", 
                  RowBox[{"\[Nu]GndToFin", "[", 
                   RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
                 RowBox[{"\[Omega]1", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", 
                 RowBox[{"\[Omega]2", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], 
               "4"]}], ")"}]}]}], ")"}], 
         FractionBox["1", 
          RowBox[{
           RowBox[{"2", "f"}], "+", "1"}]], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"m", "=", 
            RowBox[{"-", "f"}]}], "f"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"mDPrime", "=", 
             RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
              RowBox[{
               UnderoverscriptBox["\[Sum]", 
                RowBox[{"mPrime", "=", 
                 RowBox[{"-", "fPrime"}]}], "fPrime"], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                    "+", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                  ")"}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                  "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
            "/", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Pi]", " ", 
                  RowBox[{"\[Nu]GndToFin", "[", 
                   RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
                 RowBox[{"\[Omega]1", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    FractionBox["v", "c"]}], ")"}]}], "-", 
                 RowBox[{"\[Omega]2", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], 
               "4"]}], ")"}]}], "+", "\[IndentingNewLine]", 
           RowBox[{
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
            "/", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Pi]", " ", 
                  RowBox[{"\[Nu]GndToFin", "[", 
                   RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
                 RowBox[{"\[Omega]1", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    FractionBox["v", "c"]}], ")"}]}], "-", 
                 RowBox[{"\[Omega]2", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], 
               "4"]}], ")"}]}]}], ")"}], 
         FractionBox["1", 
          RowBox[{
           RowBox[{"2", "f"}], "+", "1"}]], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"m", "=", 
            RowBox[{"-", "f"}]}], "f"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"mDPrime", "=", 
             RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
              RowBox[{
               UnderoverscriptBox["\[Sum]", 
                RowBox[{"mPrime", "=", 
                 RowBox[{"-", "fPrime"}]}], "fPrime"], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                    "+", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                  ")"}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                  "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}]}], ")"}]}]}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR"}], "]"}], ",", "v"}], "]"}]}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{"fRep_", "?", "NumericQ"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.538523548469115*^9, 3.5385235524603434`*^9}, {
  3.5385832601238136`*^9, 3.538583261230877*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Delta]f", "=", "0.25"}], ";"}]], "Input",
 CellChangeTimes->{
  3.456746939*^9, {3.5372003913424997`*^9, 3.5372003937643747`*^9}, {
   3.5378885919057503`*^9, 3.5378885935932503`*^9}, {3.537901719773398*^9, 
   3.53790172663741*^9}, 3.5379017983975363`*^9, 3.5385235615778646`*^9, 
   3.538524008413422*^9, {3.540084171622327*^9, 3.540084172433584*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", "\[IndentingNewLine]", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fRepList", "=", 
     RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"specList", "=", 
     RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"fRep", "=", "fRepMin"}], ";", "\[IndentingNewLine]", 
    RowBox[{"n", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"While", "[", 
     RowBox[{
      RowBox[{"fRep", "<", "fRepMax"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"n", "+=", "1"}], ";", "\[IndentingNewLine]", 
        RowBox[{"fRepList", "=", 
         RowBox[{"Append", "[", 
          RowBox[{"fRepList", ",", "fRep"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"specList", "=", 
         RowBox[{"Append", "[", 
          RowBox[{"specList", ",", 
           RowBox[{"Chop", "[", 
            RowBox[{"vIntSpec", "[", "fRep", "]"}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"n", ">", "1"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"\[Delta]f", "=", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                  "specList", "\[LeftDoubleBracket]", "n", 
                   "\[RightDoubleBracket]"}], ">", "0.2"}], ",", "\[Delta]fF",
                  ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    "specList", "\[LeftDoubleBracket]", "n", 
                    "\[RightDoubleBracket]"}], ">", "0.005"}], ",", 
                   "\[Delta]fM", ",", "\[Delta]fC"}], "]"}]}], "]"}]}], ";"}],
              "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"totalSpec", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
             "fRepList", "\[LeftDoubleBracket]", "t", 
              "\[RightDoubleBracket]"}], ",", 
             RowBox[{
             "specList", "\[LeftDoubleBracket]", "t", 
              "\[RightDoubleBracket]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "1", ",", 
             RowBox[{"Length", "[", "specList", "]"}]}], "}"}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"fRep", "+=", "\[Delta]f"}], ";"}], "\[IndentingNewLine]", 
       "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"specFile", "=", 
       RowBox[{"\"\<85RbCalc52_NezFitS_IntP05\>\"", "<>", "\"\<.txt\>\""}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{
        "\"\<C:\\\\Users\\\\jstalnak\\\\My \
Documents\\\\MathematicaStuff\\\\RbCalcs\\\\\>\"", "<>", "specFile"}], ",", 
        "totalSpec", ",", "\"\<Table\>\""}], "]"}], ";"}], "*)"}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "specFile", "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.45668360096875*^9, 3.456683627703125*^9}, {
   3.45668370559375*^9, 3.456683897734375*^9}, 3.456691279109375*^9, {
   3.45669137853125*^9, 3.45669155209375*^9}, {3.4566915833125*^9, 
   3.45669160075*^9}, {3.456691775640625*^9, 3.456691785140625*^9}, 
   3.45669183859375*^9, {3.456691885796875*^9, 3.456691941359375*^9}, {
   3.45669199815625*^9, 3.456692154421875*^9}, {3.456692979515625*^9, 
   3.456693007546875*^9}, {3.45669311309375*^9, 3.45669315703125*^9}, {
   3.456693299640625*^9, 3.4566933063125*^9}, {3.456746813875*^9, 
   3.4567468139375*^9}, {3.45674689025*^9, 3.45674689809375*^9}, 
   3.45674701559375*^9, {3.45674705984375*^9, 3.456747108578125*^9}, 
   3.456753643015625*^9, {3.4569297910931253`*^9, 3.4569298004681253`*^9}, {
   3.4572661524525003`*^9, 3.4572661531712503`*^9}, {3.459186703109375*^9, 
   3.45918670459375*^9}, {3.459519261171875*^9, 3.459519262984375*^9}, {
   3.47291863724025*^9, 3.472918639662125*^9}, {3.53633607830475*^9, 
   3.536336085164125*^9}, {3.536336128961*^9, 3.536336158961*^9}, {
   3.5363427553985*^9, 3.536342778289125*^9}, {3.536342834164125*^9, 
   3.53634285811725*^9}, {3.536342901570375*^9, 3.536342922445375*^9}, {
   3.53634300536725*^9, 3.536343035820375*^9}, {3.536343181461*^9, 
   3.536343219132875*^9}, {3.53634348686725*^9, 3.53634351399225*^9}, {
   3.5363436326485*^9, 3.536343636789125*^9}, {3.536410606882875*^9, 
   3.536410619226625*^9}, 3.536665358101625*^9, {3.536665395461*^9, 
   3.536665419351625*^9}, 3.536673352336*^9, {3.53667965761725*^9, 
   3.53667967536725*^9}, {3.536683743070375*^9, 3.5366837462735*^9}, {
   3.5369248163268747`*^9, 3.5369248299049997`*^9}, {3.5370105092799997`*^9, 
   3.5370105172018747`*^9}, {3.5370324895924997`*^9, 
   3.5370325272956247`*^9}, {3.5370397348893747`*^9, 
   3.5370397361393747`*^9}, {3.5370960082956247`*^9, 
   3.5370960090924997`*^9}, {3.5372004106393747`*^9, 
   3.5372004185456247`*^9}, {3.5372015739987497`*^9, 
   3.5372015778112497`*^9}, {3.5377185791088753`*^9, 
   3.5377186176088753`*^9}, {3.5377188548276253`*^9, 
   3.5377188941088753`*^9}, {3.5377204684838753`*^9, 
   3.5377205887338753`*^9}, {3.5377206246557503`*^9, 
   3.5377206567495003`*^9}, {3.5377255780463753`*^9, 
   3.5377255874213753`*^9}, {3.5377260590932503`*^9, 
   3.5377260838588753`*^9}, {3.5377261897963753`*^9, 
   3.5377261917182503`*^9}, {3.5377266263745003`*^9, 
   3.5377266358120003`*^9}, {3.5377272762495003`*^9, 
   3.5377272790932503`*^9}, {3.5377282714682503`*^9, 
   3.5377282777026253`*^9}, {3.5377862571870003`*^9, 
   3.5377862604370003`*^9}, {3.5377863064838753`*^9, 
   3.5377863089213753`*^9}, {3.5377867031870003`*^9, 
   3.5377867051088753`*^9}, {3.5377873708276253`*^9, 
   3.5377873746870003`*^9}, {3.5377874597651253`*^9, 
   3.5377875048276253`*^9}, {3.5377878395151253`*^9, 3.5377878626401253`*^9}, 
   3.5377884641557503`*^9, 3.5377893398745003`*^9, {3.5377945135151253`*^9, 
   3.5377945233120003`*^9}, 3.5378885262338753`*^9, {3.537893520952277*^9, 
   3.537893526287486*^9}, {3.5378936233828573`*^9, 3.53789367046774*^9}, 
   3.537894440969693*^9, {3.5378974914186516`*^9, 3.537897492463853*^9}, {
   3.5378985808743725`*^9, 3.537898581217573*^9}, {3.5378999359707527`*^9, 
   3.5378999399019594`*^9}, 3.5379001043074484`*^9, {3.537901724952607*^9, 
   3.537901740474634*^9}}],

Cell[BoxData["specFile"], "Print",
 CellChangeTimes->{3.538634104416176*^9, 3.5391540982949796`*^9, 
  3.5400716102596207`*^9, 3.540080515383639*^9, 3.540092795000478*^9, 
  3.5404255059015675`*^9, 3.540513484005292*^9, 3.5406764179296217`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"7178.729`", ",", 
   RowBox[{"{", "Null", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.53860627798536*^9, 3.538634104416176*^9, 
  3.5391540982949796`*^9, 3.5400716102752204`*^9, 3.540080515383639*^9, 
  3.540092795000478*^9, 3.5404255059015675`*^9, 3.540513484005292*^9, 
  3.5406764179296217`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\<C:\\\\RbDFCS\\\\Rb85_5D32.txt\>\"", ",", "totalSpec", ",", 
    "\"\<Table\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5385255757270675`*^9, 3.5385255896838655`*^9}, 
   3.538525623446797*^9, {3.5385833530161266`*^9, 3.5385833644487805`*^9}, 
   3.53860597902026*^9, {3.539128057485654*^9, 3.539128079783929*^9}, {
   3.5400697767604203`*^9, 3.54006978362442*^9}, {3.540317344849708*^9, 
   3.5403173454114523`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"totalSpec", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456746828125*^9, 3.456746850109375*^9}, {
  3.456746921703125*^9, 3.456746923640625*^9}, {3.5372092762018747`*^9, 
  3.5372092820924997`*^9}, {3.54006978805482*^9, 3.5400697883824205`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk8Vd0ex/EtU0WiQSEhCpnnHkMhmlSKSlJEGfJUyJjCFpExFRlCSkrJ
EFEqCqGUTInUJZRIVKJ5uPf3Pbd/er1fH2vvc/ZZZ62zt4yTh5XzJIZh3LgY
hv6nf86N+SY2iU9ST4nNMWYYFj7pJP8lbCaZ4SJHCE5JahZBhwPybzaP1olS
n0S2sE4SUPlEZmF1wyIe6QiM5ybrZqvUbH+ODpeqi/a4OWM8D/nT3xytP0Xo
8OZG/mRPLoznJSunNdvsZXB++O6qAcHgSeh8ZC595Y6wGxgP+3zfoTb0B8fn
J8suU5bbB7OwrbjKuSo+jJ9Mji4c4F0/gA67Gc3+2zENfQp5p0abZDgvzg8b
1S4R9ZZCn0rO/GUeLwSz8OPztnmKsugCZKsWEa62Zeiw/XrH9qsr0QXxevZd
nxs0Gx1+7GZcWsuNPo3cGtTfVyOPDpvwt+km6qELkaM84hU6PNDhJWY2DWLm
6NPJq32KPiauR4fHpfsXSmxBFyYnnbsdJ7cJHXYf7dpV/i+6CLlLVe5uSBA6
XJwQ1z26G30GedoS1fLplehwvrHazxuB6DPJcm67dY8mosOnp/F4F8WizyLL
v0vd+F0BHX49xpMl+gWf32zyWqE1yorB6LB2ab1jqRXGi5Izbv+IzqxChx+a
R9mP16PPIa/POvJ5dQY6/OOIVn4b5/XPJT9l7kqI7EWHNy3QqBS/jC6G+S+W
tzdZYC512Dus/uDzSWLUxckaW7wyxiXQ4eb26fFx2mRGgtyvUX/I2wIdvq91
9+NEK44/j1wvefzdZDd0+PE7KYfDhzBektyxYx1jcAEdFh0//CrhCvp88hZb
3kd1d9BhEUEe+WUP0aVw/Vv3h6dlocNvdr7e/ewdujRZM+t3270CdPjiztB2
RQm8PxlybIplmmQImYUd7hXpPo9EX0CWNviwkhUQpw5ffJXUlt6LLktOqNa3
PzEZHc65/qxsjI/MyJGP7v5SsTYGHR7Z+srhK58E9YXkwUOplY94ySw8KuvR
MfMKxi8iv/10XG30HDocNPWTT574POryZD6Bi1HnZcgsvG9CkbteVJK6AjlG
RdpY+QWZhW2LW7Wq0+ZTV8T5FtUV34+Qog5bC1db1PpLU19MLnuka9KkLkMd
7ho+Oqj0g8wocebj9EudnxdQh/fotZvPEJOjrkyus1sx0eG+kDrcqS+0Nclq
EXUVss5DkwoXG3nqcEKHar9pBplRJf/U7P5Y2YYOSxyIMHHoR1fDevPjXKov
o0AdduXjNw44RWbUyUdq1kSpbVKkDms/zc7Uc1xMXYPM+z7kua2pEnX477XP
2ySilKlrYr0/npO6cKsKdfi9WPlA+iN0LfJG/oAHTiNkFm70nN1YX4euTb4q
0Kk64xzGw7ubbE6bTlWjrkPuMey6klGpTh3W1BiL0lXWpK5LDokeVjqxU5s6
zHNKoExqRJe6HvantKFjOuH61GGZIftUYbel1JeQ73S3xwX7mVCHhc3yIj+k
Laf+D75Px40/FAyYUYft+05zD+qYU9cn//PG4mp2Ejq8ZOyIiu6wKXUD+ETq
6fBUY+pwuP4n7iAHI+qG5ODw9+Nvr/5DHb7jHLJrk5QedSPMn6h5BWtn6lCH
pSfXxDi4aFFfSj6Rsyx4aB9dDxbW/FI5xVIH12cZ1tu24dYDM9HhNfNKChSj
0Y3JxysOK2aspeOxsFJNamBjAF1PxoRcmDAx+MWEricLN3qbbY5PX0LdFOvj
0NvfBsUG1GE+Jdtlb/OWUV9OHvNtiXb8gusLR8QcDyy+TNeLMcP86ntsqSa7
kjqcP3YyV9Z4NXVz7Ffd7h0q99ZQh/u0W/umhFlQX0FOMYk8LHyJzMI3uwzt
/eLQV5JfxqZ0OMWgw2F31kkW3UJfhT48KhP5Dh0WulH7O5HTV5PXJZXsUS3G
+WHtkOu9r6pWUV9DrrIc8ZixYQV1ePtq/oTqS5g/Fng/WgE7qlfg/cOuT34H
Sh3E/FtLDg3Yk757O64fnNDtFqeuSvOBWUd+UjXram83zQcWjuSPHX7NYn6s
x+fpYPU6uA0dTrdrOrshBZ+PJfazAP/JCTaY//C2mGddT97R+ZgN5Gip3Ok5
I4bUYdHOSbWDkpifG/H93G5/eKk2Onwrd9f3RFc6HmNFPuYt79DQgPPDa8YS
Exer0HxlrMmzav/6vY3E/IMbRqp7y3Lp+8xswvq+om1vsKoqdVi2Y1TP4zKt
N8xmrNfd/8mdV4D1CU5iy7g3GmD92oL9VsJ5Sh8f1j94lrvcSll7rJ82ZOaV
UgX3ONZXuGGHqOqPB2RmKzm1Z8u4yjr6exYWPnmxYPlPdFusz7FVdeav0GGV
mK3ZSlI4/zby3Mej/lOc8Ppgd+veo4aFeP12ZKcUgzrTPqxvcPa77YYbzPH+
t5PFDPTGBN9jfYPtrPs0PT01qO/Aen5frna2DJmFBSuP5JSrY7w9OVcm9m7v
GI4Pi25Y4HJsHOu3A+bDLlMxZW+s/3DlgWftrta4PjvJPn/u+F72pv2Ihecc
KncuMpSl7oj99Tv/S8/P2N/gI/nP1tfyY39zIisb6C82tqP9kIWrftuZL0qn
/ZLZBU/MebH3Ke2nLCxRHeh76wH2393kSX7lRitCsT/DS3XKJK+lYf92Jh/6
U9AT8Q/2ZzhbP+vUvxcw3oW8amSJ5Gsb7P+w6tu+c2f58fvBFcfnqY0Wqcfv
Czggs6c7ZQN+P7iRk0/e1TIuw3g4ve7Dohci6HvI9/vvF2q74PchbLS4oTU0
E79v3LE+eRtM9UrG7yM4yLz5ZuF+9H/JZ7x7b1Q9QYd5wgdf6nzH76+9ZI0c
n2W30vD7C356ZpGA9xf0fWTLh85RGc/Q4e0Jt0RYzu/D/WSrgWSnqdnosFdW
pYHqCXQP7C8tWyM+laPDfjeMrlx1RvckG+cmNAxFocNdHisF3+D3NOOF6z+y
pTT+Dt4//LCu9d9F8zH+AL6vSqIZ/pMxHi455dLqyqB74/vCdX721AmMh1uG
h6R/duH4Phgf/v5e9RA6fD+lpEXsKbovuf7T9wr5u+hwQ5zPXp9t6H7kzxWd
A0aO6PDe+MAe30J0f+wH8s2qXjfQ4c55cg2O19ADyB/4XUKaVXH/x7GM5649
KegHyb03xL3Ecb/CwiONM3qiOfcPgdgP/MpPzODcX8D6B8JH/3//e4j86qj/
+NprOD48Y2NHbhrn/ugw+b3qWeOoHRgPb3Xk1rRWRQ/CfLL6IWXJuT+BBY40
b67l3J8Ek2c7B3Q+34cOl8Z2KHK5oYeQFzedKT9jiw6v8l5+b9MGdBbvx9p2
w/416HBPZIECH+f+MZRcHDLphdQEXj+sYH1F3e4z7s+OYH66BK0seY0OKyTP
H/VRxvgw8m6DCf80SRwffnHKL09GBj2cXFhh1h7Juf+D43hrFCSHcfyj2E+C
woQNlqPDO+/fqZEUwvgI8rVKty9jsjg//LXJdzSPc/8dSZ68J1+JZwHGw2nd
XGoXOec/hvlSbC/yZA46rLnLt7KF8/lHkdf1X41xnooO6wcW+4b24PVFk59X
Wlznx/MCFpaaL6Qy6I7xMXg9C/Xej3PGwy5GuZpHcT4mFuunV89/DDnPD2Dr
jx+OneM834jD96Gv5E4Gnoew8NeB70stpqDHk6vVs/z1+dHhpa01B6Zznp8c
J+c3rvrDJ44Ob5U6WPKN8/4TyPPbfBwaf+H6wUL5G+9K4XkOc4Ls+VYjV7wF
HS7jzdRqH0E/ifU87nTNtA/o8BuuLEuFUvRT2C981huG78P6ACsV9VbI/kVP
JJf3b4u88ATjYbeFPx4dSkNPIoeuOaM42IYOFw/qLWVL8fpPk69/XVczaxQd
Hv95SDmC8/wnGfOvwiFCoAsdjhN1kA3rRE8hd1z/21T5ER0eavpm2Iz3w6SS
Pw4Iybjh+87CSXE31Wzx90wa+VfIUbs+PE9i4c8LBQQFT6KfIf90bdl8Bp8X
C4eeF04y53x+6eg/nrX1c56fwSFLL3y9zTl+Btlp2Mn58RV0+MwM40BHvF8m
k5wVfbpzbBaOD4vHz9SJ48Hxz5K7zaR+5sAsHDYyK90Lf89kkWN7NU5mXsDx
YQ1fXitlzvOxc+Qiz9jVAZznX/D6ua7bXX7i/OfJwn/c11aKosNJ4hm++ysw
Pps8aFHCN7UJHebxTrqog/nKXMDn46MY2sh5/gW/vP3n5fBC9BysLztaXZo5
z7/gbwa8E4GcfhHfh0jBisec55dwjKWNzvm56JfI2TKf2gPnocM1/mH6uViP
mFzMB8XY5Gv4PrCwn3Kh6zesR8xl7FdScn5mmbg+8GLdxfF2LehXyO7Z3m/u
mWA8fKA9Ir1MDj2PXJu0xTTAGB1+19/0IImzvl4lcwsFbOHXRYfFTfQru/3R
88lzrsjLZqqgw8Ie6cmPNqMXkNVr77uqb0SHf+lO4jbzRS/E+TX4vU0a8Prh
mbG6Eus4+2cRWW85r3PeToyH66uOab3E80LmGtm+wuv0rF3osLWpvrTAQfRi
8onDGSGN8ehw6bOx1pww9BJycELtgfBQdPi9xqrZ0f/bL/8LW5iT4Q==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.5372092825768747`*^9, 3.5377254405620003`*^9, 
  3.5377265544995003`*^9, 3.5377270840776253`*^9, 3.5377280417495003`*^9, 
  3.5377290922338753`*^9, 3.5377866601713753`*^9, 3.5377873585932503`*^9, 
  3.5377878079838753`*^9, 3.5377886039838753`*^9, 3.5377920183901253`*^9, 
  3.5377951759995003`*^9, 3.5378868712026253`*^9, 3.537894149311581*^9, 
  3.5378961527471*^9, 3.5378999226951294`*^9, 3.537902280937584*^9, 
  3.5385238456171107`*^9, 3.5385255558829327`*^9, 3.5400716103844204`*^9, 
  3.5400805154928584`*^9, 3.5400927951252785`*^9, 3.540425506026366*^9, 
  3.540513484317288*^9, 3.5406764186784506`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"vList", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"fnToIntegrate", "[", 
        RowBox[{"fRepAvg", ",", "v"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "30000"}], ",", "30000", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5377899216870003`*^9, 3.5377899242495003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"vList", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5377897259057503`*^9, 3.5377898006713753`*^9}, {
  3.5377899038745003`*^9, 3.5377899277495003`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxVWnlYjvn3riTZlwnJlGxlCZWkGBwqM9IQEzL2xhKakXyZiLGFZCYx2ZIK
IaTSrpLT/paWd98j5qsyGqlpTJPwm+88Z67rd/yR676e5/08n+V8znLfZ6Tf
jqWbjAwMDFb+/ed////zz6sOt/Qo6Wze+nb2P3hqHWZeSaz7KG8XsEUdjo+v
Mww+86eADevQM+eX6anZ9H6THse9yrP7tKNVwLV67EqLq9wX+kbAWXpsj/Yp
bDRqE/AVPfrEmb45d5dwqB69tvhsbTak32/XY0Jb6duPzYSX6rFy9yfSURp6
31WPf0wSteweSM+t9ZgZtmBLz1TCPfRYP9r20+dmNL/XOhS5tqZ3D+4UsEKH
b57KP3NcTOvJ12FDYL99ZV8Tvq7D885PPIYafBBwuA4dnCL6Hu3XY84/eKcO
5Q6bBvx0pKeAfXXo+aY59sgSEwHP0aGPe7zi5BZjAdvoMLDL6dCWwQYC7qvD
PeqvXoy68k4Yv12L6gLbz/WnCeu0+CTba3nLYfp+kRZX/LKo/EOokfD721q0
jbZ8CWWmAo7U4sDusxK2H+8j4O+1iN4v9smiab5rtTh4yb3775xpPh5alD95
NevdLhrPTovGrbeWvI0zFPAnWjRx/Olp83Gab6cGnU59btlLRvN5psHJQ5YP
XTiKsEiDRj6TX/fJeC/gFA3GVAckLewifF6DJv3mqu2cPgr4gAZPVnvqOq/Q
+Bs1OG3JxYDI3jSfhRo0aHozekNrNwE7arD1gVO8zp/2d5gGo89e+unSBdp/
Aw1uKTtzZ0JaXwE3qrFivW5h7MGBAq5R46OGUbMXNZsJOFONg28N2Je4ZJiA
Y9R4Q3Rxu5/KSsBH1ThD9cOcDdmjBLxNjfNe+uThHBsBL1Fj6tyMpB8WjBew
ixoHXfxqy+CqCQIeocb9knVXfKwIm6jRv9nmeO1ZWwH/psJehna7LW3HCFiu
wtYNqQWDC6wFnKfCOt+0+NlRwwV8TYWfP3wUmFs9RMAnVfjEUvTrkP6fCDhQ
hevObNp4yXaAgFeocGPBpuyI2t4Cnq3CNzslniFLyF7GqrD9m1G1UZe6C7iP
Cm/eXxPRFUL7/bsSc6Zfa25Xkz1olfjWp9JrUDSdV6ESvdu7t+1fT+eZqMTZ
xdv8rMeSPZxWojbAbub7EDr/PUoMn9rryqoAwmuUmI43bvQaQO+7K7FteNyg
kjgab6ISZzyxXT7vC/r+ICVO2zSp2KGF5veXAo+fdTRd10rrqVfg4KlfX95T
TOddrsCgdXW7bhbTeSYrsOjnE7NyPSYL+JwCLU/U7luU6SDg/Qq8KXpRMi5s
nIC/UeDbLukoN5vRAvZU4OwJAw4NXDdSwA4KXLDhx/FdjmQf5gpcluF63Oi/
YwX8UY4lv0+eleQ3ScANcvxmSuiuRz/bC7hajtY2iV0p/el7GXLsNWv895vH
0vcuy9HtguHHV840/hE5fpn/at3YGnq+VY6j+q+QZOTQ773lOFz/nz9XX6fx
p8vxxYKVDq7HaH1Wckxx0lZPO+0o4O5yfL43Mch5jLOAm2WY6OFX3k85RcAy
GTZ05dRMaiF7zZVhyUr7xsoJdgK+KsMIG/lAj+3TBRwmw/BVK1Sjg0HAO2T4
cv0mq131rgJeLkNpSJbnPRsnAc+SoWHz6LG+6TS/MTJck52YZnGU5t9bhkM6
EwJHzKT5tEnR4UxsSEw9nZ9Ginv3/f5mTxY9RymeTTpgZbyGfn9LipujAixd
bWm9EVLsfcbvi+QAmu9uKWrnpUib/WcJeLUUx6Vff9LhSfNzk+LYz5zSW9zp
/k6QouXoFbtnt9N9HyhF2Rff5UiW0vsdEow8e/w/Lc2fCfipBHuuH3Rx7ToX
AZdJsCZXtDU6nPA9Cer65w59J6L5REnw0B+qw29f0n6ESPCaaqGmMYjsx0+C
B17arep2caKAF0hQudi4e7QHPbeX4HEnjzvuF2i9QyW4Zkigz8HxtP8fxFjf
FfqXy8RpAn4hxh+vnbkls6H9qxJjxNNTA/L+ovWlizH20dCSux1kX9Fi1Gsf
iBYMpu8fFmPJtnGekem03/5iHDLuZMbUQ2RPi8U4tlwxsima1uMsxrXjFGuU
b8meLcVYOS1k4AC5uYCNxVg647l/C5I/U9bi1Mg52YVxdJ8TatFYvtlodw35
t6Ba3BxZbpKSRRhqcZPH7PbLn9L7/WoxvqYwIauJsL4GDQ7VfmMxmMa/U4PH
EtLbrt+keBBcg10TL8an3SH/Or8GzwXN7GM7neKDWQ3Wr8v9Wr39UwE/r8bk
ZPepd2eQv06txunysKdhIlrfD9V42vDDxQM9KV54VeMPaRVuFs5kTxbVeNV/
8+llF2n/m6rQzmdurI3HVAFnVeF6091adTrZR2gVHuoR/750Mtnr0irMyXKe
cKZgroCtq9DoSqvarN5dwK8f45ZF+pDnNp8LOP8xLktc1dcgjXD4Y3TsH2L6
7Iv5lL88xvL4iNyvIt0oX3mMDR0vAuKC6D63V+KRAoeWyZYzBVxUiXs6Q95N
9KDzjqzEw9/P6arbTPa3thIbn1uOjCug+2pXieW/Ln7TzYTW31mBRS/nSx8s
p/0RVeCsQzWTHu4i/3a+Aq9N+97GfQr5240V6Hci3KCtlvy5YwWeLJdlpPSh
8zCowFPzTI/d+oPOq0aEhVPcEz32kX3FiHBcysh18y4PpXguwmVHRonsdxB2
EaHxJz13VpYTNhFhv9+df27dTb+Xl2PnG9O1QbYWFI/LMVy6fzL8TPE5sBzb
KsUmyQdpPrPL8csT65esGUPz7VOOjt3uJj9sIHvRlmFHd+dHLZG03sQyjL19
Mu2pDz3fU4b1zx62D8+i77uXYb4sdmdzGdnroDLsOTN0SokD2XN9KRoannox
M5twcin65J+YkXeB1rO/FPNPf9stz4rm41mKw77qHb95CX3PvBQ/jDif5HqX
7LehBAcsEjUNtKXnGSVoP/PhiK3BgykelWC+eenOUz50v7xLMED5JCq7hrBV
CU5NUZcXWtB8m4vR1zXh0IVguq+5xfg8QaEDU8pPwooxqrHX1Y+qXhQvitFD
vqv2Vu9+FB+KsavtwYxwS8pv24rQuZvPvbr39D4W4b7Da62in1L+F1GE48KK
tzeuofdXF2HXdxcx4ji9P6EIvToe+H98Se93FOKt4asPXtxP+1dWiCNer8xO
SyIcVYheY+F9+HFan18hpjsFvf31DD23L0SHtlendM/IHj4gpq4bXe3QSudb
hbhRv+2u2wDa32jENZm2rSeKaX/9EWMe/SzJtCD7cUaURsxF1RjyR8aIcxeY
F89bSPuZ8Aif9A1N65pI5wGP0Gt47/TLi8he9AVo0HciSN/QeQcXYJXNMSd1
LOWbZgV47ZK5tlpN80t9iH02mO3Kvkbz8XqI0rfV190H0e+b8rG4r27ApZU0
v9B8bBgeHpBmR+u1zsezk496xlnQ/cvPw9Dcd3OeN5L9+eahncJevD+YcHsu
3oxNlSXNJxyZi2vdfe8PlBC2y8W5c90cN5vQeKIH+AGKxrtr6f5tfIChx9QO
m1dY0v1/gFFHbDHSi+Yfk4PTggY7n91E++2Sg3dzCh3nDaH8TJ6NbbXf7fMJ
p/gWmI0+Me+GeXdRftMnGwNDrB7NXEXxKzELRTmX97iZUPx0z8KWxbFfJMVT
fK3PxKt7L60fZz2H7lsm2uwZVwzH5tH9ysRBjRP3fjvEg+5TBo6M+tQsbRP5
X+8MTI/Nf3aijp43p6OD6TPfnFzyx2HpeKFl1ckyCfnjMen40XJu66Rq8seY
huamvq+e5pE/Xp2GDV5HU95fJX/ccR/dTOvc/ysnfxx1H83ade1xSor39vdx
x9bUgD/f0v5UpeKBJR37drTR/vmn4oRhN9L8z9H+Gv+NW+edn72L9h9ScNjN
AyNXHafzCU7GWtlPQ8w+I3tMvYfL6mSHA4LJnpuSsL7/gVj78WS/1knYe2/5
8nfuZN++d9H0y63R0sd0vyLvYOcy+eAvKwmLbqNp5MqWhg30vsFtfNac2Nn/
CY3nkoh+xubvV/1G3w+8hXXT8hpveY+g87yJM965ti6woPy2/gaKdhuPMHSl
8zW/gVkBDxcPn0vn552AY7LfpfWwp/MNu47tfxh5pabRfuM1dLq8fnLoMYrf
HVfxTnZm9/xXtP/2VzF51M0/PVxofP94hMvPlnu70flBHG64YmT+aiF9L/UK
5p/0E+1xo/O2jsGNA47dk+6nfCAyGn+zNHI5Hkz5p8ElbOl7yN81iXDgBXQy
6re1oIDerz+Hv36Xb3LWkebvHYVWm7U7zSzJvvAsRvzqmGvqRt+3P4Mxi1eM
X+1P9gin0bxHzI6BP1F+Yf0jzrtv1NgthOzf4CRObI+p3dxC66s/hucm7lWf
bqR8BY/gx8/mKVpXLKDxDuKUb11b7vf2pN/vxZ2Fuhn/cf93PkEo+yXsfcUo
Wr/BVvSbFnuo/h2NZ7ASrcZ8d9rvEuXb/3tjPpZWPp/573Pgz7cC+z0GAR9/
L7Dvw0Fg88MjwOZffwzY+gxOAlu/9Y/A9gdOA9s/+zPA9hfPAtt/7yhg51N/
Dtj5BV4Adr4Gl4Cdf2Q0MPuwjgFmP6lXgNkXxAGzP/94YPZpfxWY/XZcBWbf
eA2Y/YddB3Y/vBOA3R/zG8DuV/0NYPcv8Saw+xl4C9j9dUkEdr8NbgO7/6Lb
wPxD5B1g/sP3LjD/Yp0EzP80JQHzT6n3gPmv4GRg/g1SgPk/41Rg/tH/b/z/
/WdVKjD/an8fmP+Nug/MP3fcB+a/V6cB8++YBsz/j0kHFh/C0oHFj+Z0YPHF
OwNY/MnIABafzDOBxa/9mcDiW30msPjnngUsPiZmAYuffbKBxdfAbGDxV54N
LD675ACL3zE5wOK7wQNg8X/jA2D5gegBsPzBLhdYfhGZCyz/aM8Flp/45gHL
X/LzgOU31vnA8p/QfGD5UVM+sPzJ6yGw/Cr1IbD8y6wAWH4WXAAsf9MXAMvv
4BGw/C/hEbD80BiB5Y/OCCy/9Edg+Wc0AstPqxBY/voBgeW39oXA8l+/QmD5
cVQhsPy5rBBYft1RCCz/nlAELD9fXQQsf48oApbfYxGw/L+tCFh9MKYYWP2w
vBhYfRFWDKz+yC0GVp80FwOrX6xKgNU33iXA6p8jJcDqo4wSYPVTQwmw+sq8
FFj95VkKrD7bXwqsfksuBVbf1ZcCq/8GlQGrD93LgNWPe8qA1ZeJZcDqT20Z
sPq0Tzmw+nV2ObD6NrAcWP17rRxYfSwvB1Y/m4iA1dcuImD19zYRsPo8RgSs
fq8RAavvDSqA1f+OFcD4gY0VwPiD8xXA+AVRBTD+obMCGD9hVwmMv1hbCYzf
iKwExn8UVQLjR9orgfEnNo+B8Su+j4HxL+GPgfEz+Y+B8TevHwPjd6yrgPE/
S6uA8UOhVcD4o6wqYPxSUxUw/smiGhg/5VUNjL/6oRoYv5VaDYz/el4NjB8z
qwHGn82vAcavBdcA49/u1ADj5/Q1wPi7frXA+D2oBcb/BdUC4wcTaoHxh8pa
YPyisRgY/2gpBsZPOouB8ZeLxcD4TX8xMP7zsBgYPxotBsafpouB8atVYmD8
6wsxMH72gxgYfztUAozftZcA438XSIDxw34SYPxxiAQYvxwlAcY/35MA46f/
ThwYf/1UAozf7pAA478HSoHx4xOkwPhzNykwfn21FBj/vlsKjJ+PkALj729J
gfH7KAXG/2ukwPSBNikw/aC3DJi+MEYGTH+YJQOmTyyXAdMvdsiA6RthMmD6
x1UZMH0kVwZMP5HJgOkrzTJg+kt3OTB9xkoOTL+ZLgem73jLgek/W+XA9KEj
cmD60WU5MH0pQw5Mf6qWA9OnGuTA9KuPcmD6lrkCmP7loACmj3kqgOln3yiA
6Wv7FcD0t3MKYPpcsgKYfleuAKbv1SuA6X9/KYDpg4OUwPTDiUpg+qK7Epj+
uEYJTJ/cowSmX55WAtM3E5XA9M9CJTB9VKsEpp/+rgSmr/ZRAdNfx6qA6bOz
VcD02xUqYPpuoAqY/ntSBUwfvqYCph/nqYDpy3IVMP35NxUwfdpEDUy/HqEG
pm+7qIHp30vUwPTxbWpg+vlRNTB9PUYNTH/PVAPT52vUwPT7RjUwfd9AA0z/
H6YB1h/gqAHWP7BQA6y/YKMGWP/BAQ2w/oTzGmD9CykaYP0NIg2w/odnGmD9
EZ0aYP0Tn2iB9VfYaYH1X3hogfVnrNUC69/4XgusvyNSC6z/47YWWH9IkRZY
/4hOC6y/pF0LrP+krw5Yf4qNDlj/yhwdsP4WXx2w/pedOmD9MeE6YP0z13XA
+mvydcD6b/5OvVl/zmsdsP6dHnpg/T3WemD9P656YP1BS/XA+oe264H1F4Xq
gfUfXdED60/K0gPrX6rVA+tvatID638yrAPWH2VRB6x/amodsP4qrzr4t//q
/wCqD037
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.5377897570932503`*^9, 3.5377897910620003`*^9}, 
   3.5377898949682503`*^9, 3.5377900201401253`*^9, 3.5377906759682503`*^9, 
   3.5377907886557503`*^9, 3.5377911478901253`*^9, 3.540071775744261*^9, 
   3.5400806692740555`*^9, 3.540092952764289*^9, 3.5404256648635297`*^9, 
   3.5405144676194816`*^9, 3.5406773384156995`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{155, Automatic}, {Automatic, 187}},
CellContext->Notebook,
Magnification->1.5,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 511, 13, 98, "Input"],
Cell[CellGroupData[{
Cell[1081, 37, 76, 1, 74, "Subtitle"],
Cell[1160, 40, 37, 0, 42, "Subsubtitle"],
Cell[1200, 42, 148, 5, 43, "Input"],
Cell[CellGroupData[{
Cell[1373, 51, 40, 0, 42, "Subsubtitle"],
Cell[1416, 53, 223, 8, 45, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1676, 66, 107, 1, 42, "Subsubtitle"],
Cell[1786, 69, 330, 10, 45, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2165, 85, 75, 1, 74, "Subtitle"],
Cell[2243, 88, 102, 1, 74, "Subtitle"],
Cell[2348, 91, 149, 2, 42, "Subsubtitle"],
Cell[2500, 95, 219, 5, 70, "Input"],
Cell[CellGroupData[{
Cell[2744, 104, 105, 1, 42, "Subsubtitle"],
Cell[2852, 107, 354, 9, 72, "Input"],
Cell[CellGroupData[{
Cell[3231, 120, 105, 1, 43, "Input"],
Cell[3339, 123, 960, 13, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4348, 142, 101, 1, 42, "Subsubtitle"],
Cell[4452, 145, 219, 6, 43, "Input"],
Cell[4674, 153, 167, 5, 43, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4890, 164, 106, 1, 74, "Subtitle"],
Cell[4999, 167, 222, 3, 42, "Subsubtitle"],
Cell[5224, 172, 225, 5, 70, "Input"],
Cell[CellGroupData[{
Cell[5474, 181, 199, 3, 42, "Subsubtitle"],
Cell[5676, 186, 204, 5, 70, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5917, 196, 109, 1, 42, "Subsubtitle"],
Cell[6029, 199, 301, 8, 71, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6367, 212, 389, 5, 42, "Subsubtitle"],
Cell[6759, 219, 914, 17, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7710, 241, 413, 6, 42, "Subsubtitle"],
Cell[8126, 249, 554, 9, 43, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8729, 264, 115, 1, 74, "Subtitle"],
Cell[8847, 267, 249, 3, 42, "Subsubtitle"],
Cell[9099, 272, 250, 6, 70, "Input"],
Cell[CellGroupData[{
Cell[9374, 282, 199, 3, 42, "Subsubtitle"],
Cell[9576, 287, 275, 6, 70, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9888, 298, 115, 1, 42, "Subsubtitle"],
Cell[10006, 301, 347, 9, 71, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10390, 315, 252, 3, 42, "Subsubtitle"],
Cell[10645, 320, 630, 16, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11312, 341, 315, 4, 42, "Subsubtitle"],
Cell[11630, 347, 1176, 21, 71, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12843, 373, 350, 5, 42, "Subsubtitle"],
Cell[13196, 380, 960, 18, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14193, 403, 371, 5, 42, "Subsubtitle"],
Cell[14567, 410, 962, 18, 43, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15578, 434, 155, 2, 74, "Subtitle"],
Cell[15736, 438, 240, 3, 42, "Subsubtitle"],
Cell[15979, 443, 323, 7, 70, "Input"],
Cell[CellGroupData[{
Cell[16327, 454, 199, 3, 42, "Subsubtitle"],
Cell[16529, 459, 398, 8, 70, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16964, 472, 104, 1, 42, "Subsubtitle"],
Cell[17071, 475, 347, 9, 71, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17455, 489, 293, 4, 42, "Subsubtitle"],
Cell[17751, 495, 764, 16, 72, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18564, 517, 139, 1, 74, "Subtitle"],
Cell[18706, 520, 175, 2, 42, "Subsubtitle"],
Cell[18884, 524, 442, 15, 43, "Input"],
Cell[19329, 541, 1602, 47, 87, "Input"],
Cell[20934, 590, 2033, 49, 287, "Input"],
Cell[CellGroupData[{
Cell[22992, 643, 57, 0, 42, "Subsubtitle"],
Cell[23052, 645, 1384, 45, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24473, 695, 97, 1, 42, "Subsubtitle"],
Cell[24573, 698, 1254, 33, 190, "Input"],
Cell[25830, 733, 1184, 32, 161, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27051, 770, 115, 1, 42, "Subsubtitle"],
Cell[27169, 773, 2134, 54, 418, "Input"],
Cell[29306, 829, 2166, 55, 445, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31521, 890, 89, 1, 74, "Subtitle"],
Cell[31613, 893, 790, 19, 102, "Input"],
Cell[CellGroupData[{
Cell[32428, 916, 280, 7, 76, "Input"],
Cell[32711, 925, 1685, 24, 42, "Output"]
}, Open  ]],
Cell[34411, 952, 222, 7, 75, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34670, 964, 73, 1, 74, "Subtitle"],
Cell[34746, 967, 39, 0, 42, "Subsubtitle"],
Cell[34788, 969, 495, 10, 45, "Input"],
Cell[CellGroupData[{
Cell[35308, 983, 102, 1, 42, "Subsubtitle"],
Cell[35413, 986, 630, 14, 71, "Input"],
Cell[36046, 1002, 198, 5, 69, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36281, 1012, 90, 1, 42, "Subsubtitle"],
Cell[36374, 1015, 507, 15, 131, "Input"],
Cell[36884, 1032, 833, 25, 133, "Input"],
Cell[CellGroupData[{
Cell[37742, 1061, 1174, 26, 43, "Input"],
Cell[38919, 1089, 2368, 35, 118, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41324, 1129, 1220, 26, 43, "Input"],
Cell[42547, 1157, 2164, 32, 93, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44760, 1195, 102, 1, 42, "Subsubtitle"],
Cell[44865, 1198, 357, 10, 43, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45271, 1214, 112, 1, 74, "Subtitle"],
Cell[45386, 1217, 10424, 269, 924, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55847, 1491, 185, 3, 74, "Subtitle"],
Cell[56035, 1496, 390, 7, 43, "Input"],
Cell[CellGroupData[{
Cell[56450, 1507, 6730, 132, 773, "Input"],
Cell[63183, 1641, 244, 3, 32, "Print"],
Cell[63430, 1646, 342, 7, 42, "Output"]
}, Open  ]],
Cell[63787, 1656, 496, 10, 43, "Input"],
Cell[CellGroupData[{
Cell[64308, 1670, 392, 7, 43, "Input"],
Cell[64703, 1679, 5466, 91, 346, "Output"]
}, Open  ]],
Cell[70184, 1773, 441, 13, 43, "Input"],
Cell[CellGroupData[{
Cell[70650, 1790, 251, 5, 43, "Input"],
Cell[70904, 1797, 7085, 119, 361, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
